home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / bbs / bbbbs85.lha / rexx / ShowLog.baud < prev    next >
Text File  |  1994-09-16  |  394b  |  22 lines
  1. /* ShowLog.baud */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. dcd
  6. IF RC>0 THEN RETURN
  7.  
  8. yearmonthday=""
  9. PARSE ARG yearmonthday .
  10. IF LENGTH(yearmonthday)~=8 THEN yearmonthday=DATE('S')
  11.  
  12. bbspath=GETCLIP('BBS_path')
  13. filename=bbspath'Logs/log.'yearmonthday
  14.  
  15. Send 'ATH1\r'
  16. IF EXISTS(filename) THEN
  17.   ADDRESS COMMAND 'type' filename
  18. ELSE SAY 'Can''t find log file for' DATE(,yearmonthday,'S')
  19. Send 'ATH\r'
  20.  
  21. /* ShowLog.baud */
  22.